4 :\E,0:\H,0:\M,0:Y=100:X1=69:X2=249:Z=1
5 PRINT"[147]"
6 PRINT:PRINT"MIT DEN TASTEN 1-4 WERDEN DIE DEMOS"
7 PRINT"EINGESCHALTET"
8 PRINT:PRINT"MIT BELIEBIGEN TASTEN WIEDER             AUSGESCHALTET"
10 :\N
11 GETA$:A=VAL(A$)
12 ONAGOTO20,100,200,300
13 GOTO11
20 :\E,0:\H,0
25 FOR I=1 TO 90 STEP1
30 :\K,X1+I,Y,I,I,Z
35 :\K,X2-I,Y,I,I,Z
40 NEXT
60 GETA$:IFA$<>""THEN10
70 Z=1-Z:GOTO25
100 :X=159:Y=100:Z=1:\E,0:\H,0
105 :X=159:Y=100:Z=1
110 FORI=1TO99 STEP2
120 :\K,X,Y,I*1.61,I,Z
130 NEXT
140 GETA$:IFA$<>""THEN10
160 Z=1-Z:GOTO110
200 :X=159:Y=100:Z=1:\E,0:\H,0
210 FORI=1TO90 STEP10
220 :\K,X,Y,I,I,Z
230 NEXT
240 GETA$:IFA$<>""THEN10
260 Z=1-Z:GOTO210
300 :\E,0:\H,0
305 FORYY=34TO160 STEP25
310 FORXX=34TO290 STEP25
320 FOR R=1TO20 STEP2
330 :\K,XX,YY,R,R,1
340 NEXT R,XX,YY
350 GETA$:IFA$<>""THEN10
360 GOTO 350